home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / gmplaygui / gui / move < prev    next >
Text File  |  1996-08-22  |  458b  |  24 lines
  1. if `selector req2 "Really move" "$short?"` NOT EQ Yes
  2.     quit
  3. endif
  4.  
  5. failat 21
  6. setenv diry `list "$gm" lformat %f`
  7. setenv fily `list "$gm" lformat %n`
  8. requestfile >env:ffb title "Move to:" pattern (#?.mid|#?.midi|mid.#?|midi.#?) drawer "$diry" file "$fily"
  9. if not warn
  10.         
  11.         run >nil: selector moving
  12.         rename >nil: "$gm" $ffb
  13.         if fail
  14.             copy "$gm" $ffb
  15.             delete "$gm"
  16.         endif
  17.         wait 1
  18.         break $gmpid
  19. endif
  20. unsetenv ffb
  21. unsetenv fily
  22. unsetenv diry
  23. failat 10
  24.